Aquest chunk defineix els paràmetres per defecte respecte a com mostrar el codi, però per defecte no es mostra als resultats.
rmarkdown::includes(in_header = "trama.png")## $in_header
## [1] "trama.png"
##
## $before_body
## NULL
##
## $after_body
## NULL
Aquest chunk carrega la font Atkinson, i tampoc es mostra als resultats
Qualsevol cosa que posem a continuació sí que es mostrarà, el codi quedarà en un chunk col·lapsat, i per defecte ens mostrarà el resultat.
Fem un gràfic de mostra:
ggplot(gapminder::gapminder,
aes(gdpPercap,
lifeExp,
size = pop,
colour = country)) +
geom_point(alpha = 0.7,
show.legend = FALSE) +
scale_colour_manual(values = gapminder::country_colors) +
scale_size(range = c(2, 12)) +
scale_x_log10() +
facet_wrap(~continent) +
IMpaletes::theme_IM() + # aplica el theme de l'institut
# Here comes the gganimate specific bits
labs(title = 'Year: {frame_time}',
x = 'GDP per capita',
y = 'life expectancy') +
transition_time(year) podem posar altres continguts, com taules o imatges
Poso una instrucció en css per a donar format a la taula:
tbl <- gapminder::gapminder |>
filter(year < 1969) |>
group_by(continent) |>
summarise(Esp_Vida = mean(lifeExp))En aquest exemple es veu com aplicar a un gràfic de ggplot l’estètica
(theme) i la paleta de colors de l’institut. Per més detalls sobre això,
veure la vinyeta d’instruccions del paquet IMpaletes.
# genera unes dades inventades
set.seed(123)
df <- data.frame(xval = rnorm(50)) %>%
mutate(
yval = rnorm(50),
zval = xval - sample(c(1.0:1.2), 50, replace = T),
fact = sample(LETTERS[1:3], 50, replace = T),
cat = sample(letters[8:10], 50, replace = T),
time = sample(c(2000:2023), 50, replace = T)
)W <- ggplot(df,
aes(x = xval,
y = yval,
color = yval)) +
geom_point(size = 4) +
IMpaletes::theme_IM() + # aplica l'estètica Institut Metròpoli al gràfic
labs(
title = "Un títol",
subtitle = "un subtítol",
x = "xval",
y = "yval",
caption = "Una font:"
) +
IMpaletes::paleta_IM_seq(aesthetics = "colour") # aplica la paleta de colors seqüencial
Wggplotly(W)